home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip Kasım 2000.iso / prog / kasim / 15 / setup.exe / TYPECASE.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1999-06-04  |  9.6 KB  |  188 lines
  1. #include <windows.h>
  2. #include <commdlg.h>
  3. #include <stdlib.h>
  4. #include <stdio.h>
  5. #include <string.h>
  6. #include <alloc.h>
  7. #include <ctype.h>
  8. #include <math.h>
  9. #include <shellapi.h>
  10. #include <dos.h>
  11. #include <fcntl.h>
  12. #include <new.h>
  13. #include <setjmp.h>
  14. #include <string.h>
  15. #include <sys/stat.h>
  16. #include <time.h>
  17. #ifdef __WIN32__
  18. #define huge far
  19. #define hmemcpy memcpy
  20. #pragma option -w-sig
  21. #endif
  22. #define reg register
  23. #define uns unsigned
  24. #define OUCH MB_ICONEXCLAMATION
  25. #define FM(type,n) (type  far*)farmalloc((long)(sizeof(type))*n)
  26. #define HM(type,n) (type huge*)farmalloc((long)(sizeof(type))*n)
  27. #include "typecase.h"
  28. #pragma hdrstop
  29. /*-----*/
  30. #define swop(i,j) ((i)^=(j),(j)^=(i),(i)^=(j))
  31. #define reg register
  32. #define uns unsigned
  33. typedef uns char byte;
  34. typedef uns long ul;
  35. typedef uns short us;
  36. HINSTANCE Instance=0,PrevInstance=0; short CmdShow=0; HWND Main; HFONT xaf=0,yaf=0;
  37. CHOOSEFONT CF; LOGFONT LF; byte KEYS[256],buffer[256]; char tit[256],file[256]; OPENFILENAME ofn;
  38. char style[LF_FACESIZE]={0},font[LF_FACESIZE]={0};
  39. /*-----*/
  40. void Line(HDC dc,short x,short y,short X,short Y){MoveToEx(dc,x,y,0); LineTo(dc,X,Y);}
  41. /*-----*/
  42. void LC(char*s){for(;*s;s++) if(*s>='A') if(*s<='Z') *s+=32;}
  43. /*-----*/
  44. short GetFileName(HWND wn,char*file,char*t,char*f,short write) {short j;
  45. strcpy(file,tit);
  46. ofn.lStructSize=sizeof(OPENFILENAME); ofn.hwndOwner=wn;
  47. ofn.lpstrFilter=f; ofn.lpstrCustomFilter=0; ofn.nFilterIndex=0;
  48. ofn.lpstrFile=file; ofn.nMaxFile=128;
  49. ofn.lpstrFileTitle=tit; ofn.nMaxFileTitle=256;
  50. ofn.lpstrInitialDir=0; ofn.lpstrTitle=t;
  51. ofn.Flags=write?OFN_OVERWRITEPROMPT:OFN_FILEMUSTEXIST;
  52. j=(write?GetSaveFileName(&ofn):GetOpenFileName(&ofn))?1:0;
  53. LC(file); LC(tit); return j;}
  54. /*-----*///
  55. void textcursor(HDC dc,short x,short y,short h){
  56. Line(dc,x,y,x,y+h); Line(dc,x-5,y,x+5,y); Line(dc,x-5,y+h-1,x+5,y+h-1);}
  57. /*-----*/
  58. void choosefont(HWND wn,HDC dc){CF.lStructSize=sizeof(CF); CF.hwndOwner=wn; CF.hDC=dc;
  59. CF.lpLogFont=&LF; CF.Flags=CF_BOTH|CF_FORCEFONTEXIST|CF_USESTYLE; CF.lpszStyle=style;
  60. if(!ChooseFont(&CF)) font[0]=0; else strcpy(font,LF.lfFaceName);}
  61. /*-----*/
  62. LRESULT far pascal MainWinProc(HWND wn,UINT iMessage,WPARAM S,LPARAM L){HDC dc; PAINTSTRUCT PS;
  63. short i,j,k,l; RECT rr; static char p1616=1,I=16,J=16,sb=0,di,dj,Numbers=0,nbuf[4]; SIZE K;
  64. HFONT of,xf; WPARAM T; static POINT P; static RECT r; static short h,d1=-1,nb=0,nc=0,os=0;
  65. static void*numf=0; static char*filter="font files\000*.fon;*.fot;*.ttf\000\000";
  66. switch(iMessage) {default: DEF: return DefWindowProc(wn,iMessage,S,L);
  67. case WM_ENTERIDLE: return 0;
  68. case WM_CREATE: SetMenu(wn,LoadMenu(Instance,"TYPECASE")); ShowWindow(wn,SW_SHOW);
  69.      if(!numf) numf=CreateFont(8,0,0,0,200,0,0,0,1,0,0,0,FF_MODERN,"System"); goto DEF;
  70. case WM_QUIT: if(numf) DeleteObject(numf); goto DEF;
  71. case WM_GETMINMAXINFO: {MINMAXINFO*p=(MINMAXINFO*)L;
  72.      p->ptMaxPosition.x=p->ptMaxPosition.y=-4; return 0;}
  73. case WM_DESTROY: PostQuitMessage(0); return 0;
  74. case WM_PAINT: {GetClientRect(wn,&r);
  75.      BeginPaint(wn,&PS); dc=PS.hdc; di=r.right/I; dj=r.bottom/(J+sb);
  76.      xaf=CreateFont(100,0,0,0,LF.lfWeight,LF.lfItalic,0,0,1,0,0,0,FF_DONTCARE,font);
  77.      of=SelectObject(dc,xaf);
  78.      if(d1<0) {
  79.           for(j=i=0;i<256;i++) {GetTextExtentPoint32(dc,(char*)&i,1,&K); k=K.cx; if(j<k) j=k;} j+=3;
  80.           h=dj*.9; if(j>di) {i=(100*di)/j; if(h>i) h=i;}
  81.         yaf=CreateFont(h,0,0,0,LF.lfWeight,LF.lfItalic,0,0,1,0,0,0,FF_DONTCARE,font);
  82.         SelectObject(dc,yaf);
  83.         for(j=0;j<J;j++) for(i=0;i<I;i++) {k=i+j*I; TextOut(dc,i*di+2,j*dj+2,(char*)&k,1);}
  84.             if(Numbers) {xf=SelectObject(dc,numf); for(j=0;j<J;j++) for(i=0;i<I;i++) {k=i+j*I;
  85.                 sprintf(nbuf,Numbers-2?"%3d":" %02X",k);
  86.                      TextOut(dc,(i+1)*di+2-18,(j+1)*dj+2-+10,nbuf,3);}
  87.             SelectObject(dc,xf);}
  88.         for(j=1;j<=J;j++) Line(dc,0,j*dj,I*di,j*dj);
  89.         for(i=1;i<=I;i++) Line(dc,i*di,0,i*di,J*dj);
  90.           if(sb) {buffer[nb]=0; GetTextExtentPoint32(dc,(char*)buffer,nb,&K); k=K.cx;
  91.                 GetTextExtentPoint32(dc,(char*)buffer,nc,&K); P.x=K.cx; P.y=dj*J+2;
  92.             if(P.x+os>r.right-20) os=r.right-20-P.x;
  93.             if(P.x+os<20) os=20-P.x; if(os>0) os=0;
  94.             TextOut(dc,os,dj*J+2,(char*)buffer,nb);
  95.              textcursor(dc,P.x+os,P.y,h-1);}}
  96.     else {
  97.           GetTextExtentPoint32(dc,(char*)&d1,1,&K); j=K.cx+3;
  98.           h=r.bottom*.9; if(j>r.right) {i=(100*r.right)/j; if(h>i) h=i;}
  99.           yaf=CreateFont(h,0,0,0,LF.lfWeight,LF.lfItalic,0,0,1,0,0,0,FF_DONTCARE,font);
  100.           SelectObject(dc,yaf); GetTextExtentPoint32(dc,(char*)&d1,1,&K); j=K.cx;
  101.         k=(r.right-j)/2; if(k<1) k=1; l=(r.bottom-h)/2; if(l<1) l=1;
  102.         TextOut(dc,k,l,(char*)&d1,1);
  103.         Line(dc,k,l-1,k+j,l-1); Line(dc,k  ,l-1,k  ,l+h);
  104.         Line(dc,k,l+h,k+j,l+h); Line(dc,k+j,l-1,k+j,l+h); d1=-1;}
  105.      SelectObject(dc,of); DeleteObject(xaf); DeleteObject(yaf); EndPaint(wn,&PS); return 0;}
  106. case WM_KEYDOWN: case WM_SYSKEYDOWN: case WM_KEYUP: case WM_SYSKEYUP: {byte V=(byte)(S&0xff);
  107.      uns short /*rep=(short)(L&0xffff),*/ scan=(short)((L>>16)&0xff), /*ext=(short)((L>>24)&1),*/
  108.      /*alt=(short)((L>>29)&1),*/ up=iMessage&1, rel=(short)((L>>31)&1); uns short G;
  109.      KEYS[V]=rel?0:0xff; G=0; if(S!=VK_BACK) j=ToAscii(S,scan,KEYS,&G,1); i=(byte)(G&0xff);
  110.     if(i) if(!up) goto CHAR;
  111.     if(!up) switch(V) {
  112.     case VK_F1: T=_LAYOUT_; goto MENU;
  113.     case VK_F2: T=_SHOWBUF_; goto MENU;
  114.     case VK_F3: T=_NUMBERS_; goto MENU;
  115.     case VK_LEFT:  if(nc) nc--; goto CC;
  116.     case VK_RIGHT: if(nc<256) if(nc<nb) nc++; goto CC;
  117.     case VK_BACK: if(!nc) break; nc--; /* run on */
  118.     case VK_DELETE: if(nc==nb) break; for(i=nc+1;i<nb;i++) buffer[i-1]=buffer[i]; nb--; goto CC;
  119.     case VK_END: nc=nb; goto CC;
  120.     case VK_HOME: nc=0; goto CC;}}
  121. case WM_MOUSEMOVE: case WM_LBUTTONDOWN: break;
  122. case WM_RBUTTONDOWN: i=((short)L)/di; j=((short)(L>>16))/dj; d1=(i+j*I)&255; /* run on */
  123. case WM_RBUTTONUP: InvalidateRect(wn,0,1); goto CC;
  124. case WM_LBUTTONUP: {i=((short)L)/di; j=((short)(L>>16))/dj; i=i+j*I; if(!i) break;
  125.     CHAR: if(!i ?1: nb>255) break; for(l=nb;l>nc;l--) buffer[l]=buffer[l-1];
  126.     buffer[nc++]=(byte)i; nb++;
  127.     CC: SetRect(&rr,0,J*dj,r.right,r.bottom); InvalidateRect(wn,&rr,1);} goto DEF;
  128. case WM_COMMAND: T=S; goto MENU;}
  129. goto DEF;
  130. MENU: switch((unsigned short)T) {
  131. default: goto DEF;
  132. case _HELP_: WinHelp(wn,"TYPECASE.HLP",HELP_CONTENTS,0); break;
  133. case _FONT_: FONT: {char X[128]; dc=GetDC(wn); choosefont(wn,dc);
  134.     ReleaseDC(wn,dc); AUTOREAD: sprintf(X,"Typecase: %s, %s",LF.lfFaceName,CF.lpszStyle);
  135.     SendMessage(wn,WM_SETTEXT,0,(long)X); IR: InvalidateRect(wn,0,1); goto DEF;}
  136. case _LAYOUT_: p1616=1-p1616; LAYOUT: if(p1616) I=J=16; else {I=32; J=8;} goto IR;
  137. case _SHOWBUF_: sb=1-sb; goto IR;
  138. case _TOCLIP_: {HGLOBAL g;
  139.     if(!OpenClipboard(wn)) {MessageBox(wn,"I can't open the clipboard","",OUCH); break;}
  140.      EmptyClipboard(); g=GlobalAlloc(2,nb+1); lstrcpy((char*)GlobalLock(g),(char*)buffer);
  141.     GlobalUnlock(g); SetClipboardData(CF_TEXT,g); CloseClipboard(); break;}
  142. case _READFONT_: if(!GetFileName(wn,file,"font file?",filter,0)) goto DEF;
  143.     if(!AddFontResource(file)) MessageBox(wn,file,"This Windows can't read a font from",OUCH);
  144.     else SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
  145.     {char fot[512]; strcpy(fot,file); j=strlen(fot); FILE*FOT;
  146.         if(j<4 ?1: stricmp(fot+j-4,".TTF")) goto DEF; strcpy(fot+j-3,"FOT");
  147.         FOT=fopen(fot,"r"); if(FOT) {fclose(FOT); goto DEF;}
  148.         if(MessageBox(wn,"Its corresponding .FOT file doesn't exist: shall I create it?",file,
  149.           MB_YESNO)==IDYES) CreateScalableFontResource(0,fot,file,0);}
  150.         goto DEF;
  151. case _DROPFONT_: if(!GetFileName(wn,file,"font file?",filter,0)) goto DEF;
  152.     if(!RemoveFontResource(file))
  153.       MessageBox(wn,file,"I haven't got a font read from",OUCH);
  154.     else SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0); goto DEF;
  155. case _NUMBERS_: Numbers++; if(Numbers>2) Numbers=0; goto IR;
  156. case _TOCB_: {RECT R; GetClientRect(wn,&R); HDC dc=GetDC(wn),ndc=CreateCompatibleDC(dc);
  157.     HBITMAP bm=CreateCompatibleBitmap(dc,R.right,R.bottom);
  158.     HBITMAP obm=SelectObject(ndc,bm);
  159.     BitBlt(ndc,0,0,R.right,R.bottom,dc,0,0,SRCCOPY);
  160.     if(OpenClipboard(wn)) {EmptyClipboard(); SetClipboardData(CF_BITMAP,bm);} CloseClipboard();
  161.     SelectObject(ndc,obm); ReleaseDC(wn,dc); goto DEF;}
  162. case _EXIT_: SendMessage(wn,WM_CLOSE,0,0); return 0;}
  163. return 0;}
  164. /*-----*/
  165. static void Register(char*name,WNDPROC proc) {WNDCLASS c;
  166. c.style=CS_HREDRAW|CS_VREDRAW; c.lpfnWndProc=proc; c.cbClsExtra=0;
  167. c.cbWndExtra=2; c.hInstance=Instance; c.hIcon=LoadIcon(Instance,"TYPECASE");
  168. c.hCursor=LoadCursor(0,IDC_ARROW); c.hbrBackground=(HBRUSH)GetStockObject(WHITE_BRUSH);
  169. c.lpszMenuName=0; c.lpszClassName=name; if(!RegisterClass(&c)) exit(0);}
  170. /*-----*/
  171. HWND newwindow(char*clas,char*name,long c=0){
  172. HWND w=CreateWindow(clas,name,WS_OVERLAPPEDWINDOW|c,
  173.     CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,0,0,Instance,0);
  174.     if(w) {ShowWindow(w,SW_SHOW); UpdateWindow(w);} return w;}
  175. /*-----*/
  176. char*progname="Typecase";
  177. // Turn off warning: Parameter 'CmdLine' is never used in function WinMain(unsigned short,unsigned short,char far*,short)
  178. #pragma argsused
  179. // Turn off warning: 'MainWnd' is assigned a value that is never used in function WinMain(unsigned short,unsigned short,char far*,short)
  180. #pragma option -w-aus
  181. /*-----*/
  182. int PASCAL WinMain(HINSTANCE hInst,HINSTANCE hPrev,LPSTR CmdLine,int nCmdShow){
  183. short i; MSG msg; Instance=hInst; PrevInstance=hPrev; CmdShow=(short)nCmdShow;
  184. if(!hPrev) Register(progname,MainWinProc); for(i=0;i<256;i++) KEYS[i]=0;
  185. Main=newwindow(progname,progname,/*WS_HSCROLL|WS_VSCROLL|*/WS_MAXIMIZE); if(!Main) exit(0);
  186. while(GetMessage(&msg,0,0,0)) {TranslateMessage(&msg); DispatchMessage(&msg);}
  187. return msg.wParam;}
  188.